home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -in_the_mag- / banging_the_metal / 4096_colours / 4096colours.text < prev    next >
Text File  |  1999-07-01  |  608b  |  13 lines
  1. Rem Generate all 4096 HAM-6 colours on one OCS screen  
  2. Default Palette 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
  3. Screen Open 0,320,200,4096,Lowres : Flash Off 
  4. GROUP=11 : For L=0 To GROUP-3 : Rem Interval between bands 
  5.   For B=GROUP To 15*GROUP Step GROUP : Rem Blue margins 
  6.     Plot 0,B+L,B/GROUP : Draw To 287,B+L
  7.     Plot 288,B+L,B/GROUP+16 : Draw To 319,B+L
  8.     For G=1 To 15 : Plot 16+G*18,B+L,48+G
  9.       For R=1 To 15 : Plot 16+G*18+R,B+L,32+R
  10.         Next R : Next G : Next B : Next L
  11. Pen 15 : Print "HAM-6 MODE displays 4096 colours at once"
  12. Locate 10,22 : Print "Any key for Workbench."; : Wait Key 
  13.